﻿'--------------------------------------------------------------------------------
'FOXTOOLS SCREEN SHOOTER
'Software for screen capture.
'Copyright (c) Aleksey Nemiro, 2013
'
'This program is free software: you can redistribute it and/or modify
'it under the terms of the GNU General Public License version 3 
'as published by the Free Software Foundation.
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'GNU General Public License for more details.
'You should have received a copy of the GNU General Public License
'along with this program.  If not, see <http://www.gnu.org/licenses/>.
'
'Home page:
'<http://foxtools.ru/Shooter>  (sorry, only Russian)
'Community: 
'<http://kbyte.ru/ru/Groups/Show.aspx?id=24> (sorry, only Russian)
'English thread:
'<http://kbyte.ru/en/Forums/Show2.aspx?id=24&mid=13936>
'
'ХИТРЫЙ СТРЕЛОК ЭКРАНОВ
'Программа для создания, редактирования и отправки в Интернет снимков экранов.
'Copyright (c) Aleksey Nemiro, 2013
'
'Это свободная программа: вы можете повторно распространять её и/или модифицировать 
'в соответствии со Стандартной Общественной Лицензий GNU версии 3, опубликованной Фондом Свободного ПО.
'Эта программа распространяется в надежде, что она будет полезной, но БЕЗ КАКИХ-ЛИБО ГАРАНТИЙ; 
'даже без подразумеваемых гарантий КОММЕРЧЕСКОЙ ЦЕННОСТИ или ПРИГОДНОСТИ ДЛЯ КОНКРЕТНОЙ ЦЕЛИ. 
'Для получения подробных сведений смотрите Стандартную Общественную Лицензию GNU.
'Вы должны были получить копию Стандартной Общественной Лицензии GNU вместе с этой 
'программой; если нет, смотрите <http://www.gnu.org/licenses/gpl-3.0.html>
'
'Официальная страничка программы:
'<http://foxtools.ru/Shooter>
'Сообщество:
'<http://kbyte.ru/ru/Groups/Show.aspx?id=24>
'Ветка проекта:
'<http://kbyte.ru/ru/Forums/Show2.aspx?id=24&mid=13935>
'--------------------------------------------------------------------------------
Public Class ZzWebStart

  'Private Sub tbComment_Enter(sender As System.Object, e As System.EventArgs) Handles tbComment.Enter
  'If tbComment.Text = tbComment.Tag.ToString() Then
  'tbComment.ForeColor = SystemColors.WindowText
  'tbComment.Text = ""
  'End If
  'End Sub

  'Private Sub tbComment_Leave(sender As System.Object, e As System.EventArgs) Handles tbComment.Leave
  'If String.IsNullOrEmpty(tbComment.Text) Then
  'tbComment.ForeColor = Color.Silver
  'tbComment.Text = tbComment.Tag.ToString()
  'End If
  'End Sub

  Private Sub ZzWebStart_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    'tbComment_Leave(tbComment, e)
    chkMore_CheckedChanged(chkMore, e)
    chkAuthentication_CheckedChanged(chkAuthentication, e)
  End Sub

  Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
    Process.Start("http://zzweb.ru#zz-user-auth;")
  End Sub

  Private Sub chkMore_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkMore.CheckedChanged
    If chkMore.Checked Then
      chkMore.Text = My.Resources.Strings.Less '"<< Меньше"
      Me.Height = GroupBox1.Top + GroupBox1.Height + 12 + (Me.Height - Me.ClientSize.Height)
    Else
      chkMore.Text = My.Resources.Strings.More ' "Больше >>"
      Me.Height = chkMore.Top + chkMore.Height + 12 + (Me.Height - Me.ClientSize.Height)
    End If
  End Sub

  Private Sub chkAuthentication_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkAuthentication.CheckedChanged
    If chkAuthentication.Checked Then
      GroupBox1.Enabled = True
    Else
      GroupBox1.Enabled = False
    End If
  End Sub

  Private Sub btnSend_Click(sender As System.Object, e As System.EventArgs) Handles btnSend.Click
    CType(Me.Owner, Result).SendToZzWeb(If(tbComment.Text = tbComment.Tag.ToString(), "", tbComment.Text), chkDisableComments.Checked, chkDisableRss.Checked, chkLepota.Checked, chkAuthentication.Checked, tbEmail.Text, tbPassword.Text)
    Me.Close()
  End Sub

  Private Sub btnCancel_Click(sender As System.Object, e As System.EventArgs) Handles btnCancel.Click
    Me.Close()
  End Sub

End Class